C***** MAIN PROG. -- IF RUNIT IS USED AS SEPARATE UNIT. ------
	COMMON /DEVS/ID1,ID21,JTYPE,ID23,ID20
	COMMON /PCIP/ PCH(27,33) /IPT/IPT(27,32)
	COMMON /Q/BNW(200),NWZ /INS/RINST(27),BG(60)
	1 /COPY/COPY(30) /COPYL/ICOPYL(30),IT(30) /NUMP/NUMP,NUMPX,NUMPY
	1 /VV/LIMIT,V(2000) /A/NP(27),XT(27),FRM(80),INVIS(27)
	COMMON /DUR/DUR(27) 
	1 /D/TF,AMPFAC,OMIT,DURX,IXIN,FLNM
	1 /INTC/NWZZ,IT3,NW,KODE,NPAR,LP,NPA,IH,IZ,LA
	1 ,MLX,JD,LEND,ITMP,MP,ILIT,IC,IA
	1  /REALC/T,T1,BY,T6,T2,RD,TDUR,T4,AC
CC	1 /C/T,NWZZ,IT3,T6,NW,TDUR,A,T2,T4,BY,KODE,NPAR,LP,TBG,AC,
CC	1 NPA,IBX,IDF,PM,NM,PAR,PX2,T1,RD,VIJ2
	COMMON/B/MOT,PR,T5,NINS,I,RA,KZY,NWX,INONLY,MX,Y,Z,FNAME,
	1 MZ,N,IDALL,JC,JG,RB,IJ,IX,BW,NL,RC,W,ZZ,CHN,YY 

	READ (ID1)FLNM,I,NWZ,NINS,IDALL,BY,JPREC,KZY,LIMIT,NUMP 
	READ (ID1)(RINST(K),K=1,NINS),(DUR(K),K=1,NINS),(NP(K),K=1,NINS),
	1(BG(K),K=1,NINS),(BNW(K),K=1,NWZ),(V(K),K=1,I),
	1(INVIS(K),K=1,NINS)

	CALL OUTINF
	CALL RUNIT
	END